home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / eggdrop / eggdrop11.lha / scripts / unserv.tcl < prev    next >
Encoding:
Text File  |  1997-01-15  |  760 b   |  32 lines
  1. #
  2. # ###  unserv <server[:port]>
  3. #    removes a server from the internal server list.  if the port
  4. #    is omitted, it's assumed to be 6667.  if the bot is currently
  5. #    sitting on the server you want to remove, it will jump.
  6. #
  7.  
  8. bind dcc m unserver dcc_unserv
  9.  
  10. proc dcc_unserv {hand idx name} {
  11.   global server servers
  12.   if {$name == ""} {
  13.     putdcc $idx "Usage: unserv <server[:port]>"
  14.     return 0
  15.   }
  16.   if {[string first : $name] < 0} {
  17.     set name "$name:6667"
  18.   }
  19.   set x [lsearch $servers $name]
  20.   if {$x < 0} {
  21.     putdcc $idx "$name isn't in the server list."
  22.     return 0
  23.   }
  24.   if {$server == $name} {
  25.     putdcc $idx "I'm on $name!  Jumping..."
  26.     jump
  27.   }
  28.   set servers [lreplace $servers $x $x]
  29.   putdcc $idx "Removed server $name"
  30.   return 1
  31. }
  32.